home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 September / 64er_Magazin_85-09_1985_Markt__Technik_de.d64 / block busters (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  718b  |  16 lines
  1. 0 poke53281,0:fora=0to57:printtab(14)left$("block busters[150][155][152][151][144]",b+14)
  2. 1 b=(b+1)and7:next:printtab(13)"[158]by martin greil":t=54273:poket+23,15
  3. 2 poke53280,14:x=1034:y=15:p=1:v=1:w=1:poket+4,51:wait56320,16,240:wait56320,16
  4. 4 fora=1to36:a$=a$+"[214]":next:a$="  "+a$:print"[147][158]":fora=1to6:printa$:next
  5. 6 pokex+v+(y+w)*40,87:pokex+v+(y+w)*40+54272,1:pokex+y*40,32
  6. 8 x=x+v:y=y+w:poket,9*g:poket+3,32:poket+3,33:g=0:ifpeek(x+v+(y+w)*40)=32then16
  7. 10 g=1:p=p+1:iff=1thenw=-w:f=0:goto14
  8. 12 f=1
  9. 14 ifp/150=int(p/150)thens=s-3:goto4
  10. 16 ifx+v<1025orx+v>1062thenv=-v:f=0:g=4
  11. 18 ify+w<1ory+w>23thenw=abs(sgn(y+w-24)):f=0:g=5:a$="":ifw=0theng=1
  12. 20 ify=23andpeek(56320)=111thens=s+1:w=-1:g=3:rem"[192][192][192][192][192][192][201](c) by martin greil[213][192][192]
  13. 22 [139]s[179]10[167]6:"mid$tantantantantantantantantantantantantantantantantantantan(NULL)
  14. 24 printtab(5)""p"punkte     alter rekord"h:wait56320,16,240:ifp>hthenh=p
  15. 26 wait56320,16:s=0:goto2
  16.